home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
fglqbx10.zip
/
10-06.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
709b
|
42 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
REM initialize the video environment
IF FGtestmode(13,3) = 0 THEN
PRINT "This program requires EGA."
STOP
END IF
OldMode = FGgetmode
FGsetmode 13
REM draw the background on page two
FGsetpage 2
FGsetcolor 1
FGrect 0, 319, 0, 199
FGsetcolor 15
FGmove 160, 100
FGellipse 20, 20
REM slide the object across the screen
Hidden = 1
FGsetcolor 10
FOR X = -10 TO 316 STEP 4
FGsetpage Hidden
FGtransfer 0, 319, 0, 199, 0, 199, 2, Hidden
FGclprect X, X+19, 96, 105
FGsetvpage Hidden
Hidden = 1 - Hidden
FGwaitfor 1
NEXT
REM restore the original video mode and return to DOS
FGsetmode OldMode
FGreset
END